home *** CD-ROM | disk | FTP | other *** search
/ Workplace Effectiveness: Dealing with Change / Workplace Effectiveness: Dealing with Change.iso / pc / Tools.Dxr / Internal_7_sprite handlers.ls < prev    next >
Encoding:
Text File  |  1998-05-04  |  3.2 KB  |  123 lines
  1. global gHandCursor, gHandMask, gFingerCursor, gFingerMask
  2.  
  3. on clickButton action
  4.   set spritenum to the clickOn
  5.   set castMember to the member of sprite spritenum
  6.   set Castname to the name of member castMember
  7.   set castNum to the castLibNum of member castMember
  8.   puppetSprite(spritenum, 1)
  9.   repeat while the mouseDown
  10.     if rollOver(spritenum) then
  11.       set the member of sprite spritenum to member (Castname && "dn") of castLib castNum
  12.       updateStage()
  13.       next repeat
  14.     end if
  15.     set the member of sprite spritenum to castMember
  16.     updateStage()
  17.   end repeat
  18.   set the member of sprite spritenum to castMember
  19.   updateStage()
  20.   puppetSprite(spritenum, 0)
  21.   if rollOver(spritenum) then
  22.     do(action)
  23.   end if
  24. end
  25.  
  26. on clickButton3 thisSprite, artName
  27.   set castMember to the member of sprite thisSprite
  28.   set Castname to the name of member castMember
  29.   set castNum to the castLibNum of member castMember
  30.   puppetSprite(thisSprite, 1)
  31.   repeat while the mouseDown
  32.     if rollOver(thisSprite) then
  33.       set the member of sprite thisSprite to member (artName && "dn") of castLib castNum
  34.       updateStage()
  35.       next repeat
  36.     end if
  37.     exit repeat
  38.   end repeat
  39.   set the member of sprite thisSprite to member (artName && "on")
  40. end
  41.  
  42. on clickButtonNS action
  43.   set thisSprite to the clickOn
  44.   set vMemberNum to the memberNum of sprite thisSprite
  45.   puppetSprite(thisSprite, 1)
  46.   repeat while the mouseDown
  47.     if rollOver(thisSprite) then
  48.       set the memberNum of sprite thisSprite to vMemberNum + 1
  49.     else
  50.       set the memberNum of sprite thisSprite to vMemberNum
  51.     end if
  52.     updateStage()
  53.   end repeat
  54.   set the memberNum of sprite thisSprite to vMemberNum
  55.   updateStage()
  56.   puppetSprite(thisSprite, 0)
  57.   if rollOver(thisSprite) then
  58.     do(action)
  59.   end if
  60. end
  61.  
  62. on setPuppetState channelList, type, state
  63.   if type = #c then
  64.     repeat with n = getAt(channelList, 1) to getAt(channelList, 2)
  65.       puppetSprite(n, state)
  66.     end repeat
  67.   else
  68.     repeat with n in channelList
  69.       puppetSprite(n, state)
  70.     end repeat
  71.   end if
  72. end
  73.  
  74. on setVisibleState channelList, type, state
  75.   if type = #c then
  76.     repeat with n = getAt(channelList, 1) to getAt(channelList, 2)
  77.       set the visible of sprite n to state
  78.     end repeat
  79.   else
  80.     repeat with n in channelList
  81.       set the visible of sprite n to state
  82.     end repeat
  83.   end if
  84. end
  85.  
  86. on setMoveableState channelList, type, state
  87.   if type = #c then
  88.     repeat with n = getAt(channelList, 1) to getAt(channelList, 2)
  89.       set the moveableSprite of sprite n to state
  90.     end repeat
  91.   else
  92.     repeat with n in channelList
  93.       set the moveableSprite of sprite n to state
  94.     end repeat
  95.   end if
  96. end
  97.  
  98. on setHandCursor cState, handList
  99.   case cState of
  100.     #on:
  101.       repeat with X in handList
  102.         set the cursor of sprite X to gHandCursor
  103.       end repeat
  104.     #off:
  105.       repeat with X in handList
  106.         set the cursor of sprite X to 0
  107.       end repeat
  108.   end case
  109. end
  110.  
  111. on setFingerCursor cState, fingerList
  112.   case cState of
  113.     #on:
  114.       repeat with X in fingerList
  115.         set the cursor of sprite X to gFingerCursor
  116.       end repeat
  117.     #off:
  118.       repeat with X in fingerList
  119.         set the cursor of sprite X to 0
  120.       end repeat
  121.   end case
  122. end
  123.